Option Explicit
Sub D_Sample041()
    Dim myWb       As Workbook
    Dim myFileName As String
    Dim myErr      As Long
    Set myWb = Workbooks(1)					'Nï

    myFileName = Application.GetSaveAsFilename(,"Excelï(*.xls),*.xls")
    If myFileName = "False" Then
        MsgBox "SwTɮצW١C"
        Exit Sub
    End If
    On Error Resume Next
    Application.DisplayAlerts = False
    myWb.SaveAs myFileName
    Application.DisplayAlerts = True
    myErr = Err.Number
    On Error GoTo 0
    If myErr <> 0 Then
        MsgBox "LkxsC"
    Else
        MsgBox "xsC"
    End If
    Set myWb = Nothing						'
End Sub
